inherited FrmCadTiposPreco: TFrmCadTiposPreco
  Left = 416
  Top = 266
  Caption = 'Tipos de Pre'#231'o'
  ClientHeight = 397
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 360
  end
  inherited Panel2: TPanel
    Height = 360
    inherited Panel3: TPanel
      Caption = 'Tipos de Pre'#231'o'
    end
    inherited Panel4: TPanel
      Height = 318
      object Label1: TLabel [0]
        Left = 16
        Top = 16
        Width = 48
        Height = 13
        Caption = 'Descri'#231#227'o'
        FocusControl = DBEdit1
      end
      object Label2: TLabel [1]
        Left = 16
        Top = 56
        Width = 45
        Height = 13
        Caption = 'Comiss'#227'o'
        FocusControl = DBEdit2
      end
      inherited DBGrid1: TDBGrid
        Top = 101
      end
      inherited SbHints: TStatusBar
        Top = 295
      end
      object DBEdit1: TDBEdit
        Left = 16
        Top = 32
        Width = 394
        Height = 21
        DataField = 'TIP_DESCRICAO'
        DataSource = DtSrc
        TabOrder = 2
      end
      object DBEdit2: TDBEdit
        Left = 16
        Top = 72
        Width = 134
        Height = 21
        DataField = 'TIP_COMISSAO'
        DataSource = DtSrc
        TabOrder = 3
      end
    end
  end
  inherited DtSrc: TDataSource
    DataSet = CDS_TIPOS_PRECO
    Left = 336
    Top = 93
  end
  inherited DtSrcDBGrid: TDataSource
    Left = 480
    Top = 280
  end
  object ZQryTiposPreco: TZQuery [4]
    Connection = DtmGeral.ZConexaoBanco
    UpdateObject = ZUP_TiposPreco
    SQL.Strings = (
      'SELECT * FROM TIPOS_PRECOS WHERE TIP_IDF = :IDF')
    Params = <
      item
        DataType = ftUnknown
        Name = 'IDF'
        ParamType = ptUnknown
      end>
    Left = 177
    Top = 137
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'IDF'
        ParamType = ptUnknown
      end>
  end
  object ZUP_TiposPreco: TZUpdateSQL [5]
    DeleteSQL.Strings = (
      'DELETE FROM TIPOS_PRECOS'
      'WHERE'
      '  TIPOS_PRECOS.TIP_IDF = :OLD_TIP_IDF')
    InsertSQL.Strings = (
      'INSERT INTO TIPOS_PRECOS'
      ' ( TIP_DESCRICAO, TIP_COMISSAO)'
      'VALUES'
      '  (:TIP_DESCRICAO, :TIP_COMISSAO)')
    ModifySQL.Strings = (
      'UPDATE TIPOS_PRECOS SET'
      '  TIP_DESCRICAO = :TIP_DESCRICAO,'
      '  TIP_COMISSAO = :TIP_COMISSAO'
      'WHERE'
      '  TIPOS_PRECOS.TIP_IDF = :OLD_TIP_IDF')
    UseSequenceFieldForRefreshSQL = False
    Left = 81
    Top = 201
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'TIP_DESCRICAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'TIP_COMISSAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLD_TIP_IDF'
        ParamType = ptUnknown
      end>
  end
  object DSP_TIPOS_PRECO: TDataSetProvider [6]
    DataSet = ZQryTiposPreco
    Left = 561
    Top = 169
  end
  object CDS_TIPOS_PRECO: TClientDataSet [7]
    Aggregates = <>
    Params = <
      item
        DataType = ftUnknown
        Name = 'IDF'
        ParamType = ptUnknown
      end>
    ProviderName = 'DSP_TIPOS_PRECO'
    AfterInsert = CDS_TIPOS_PRECOAfterInsert
    Left = 457
    Top = 97
    object CDS_TIPOS_PRECOTIP_IDF: TIntegerField
      FieldName = 'TIP_IDF'
      Required = True
    end
    object CDS_TIPOS_PRECOTIP_DESCRICAO: TStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'TIP_DESCRICAO'
      Required = True
      Size = 30
    end
    object CDS_TIPOS_PRECOTIP_COMISSAO: TFloatField
      DisplayLabel = 'Comiss'#227'o'
      FieldName = 'TIP_COMISSAO'
    end
  end
  inherited ZSQLC_ConsultaDbGrid: TZReadOnlyQuery
    SQL.Strings = (
      
        'select TIP_IDF IDF, TIP_DESCRICAO DESCRICAO, TIP_COMISSAO COMISS' +
        'AO'
      'FROM TIPOS_PRECOS')
    Left = 185
    Top = 273
  end
  inherited DSP_Consulta: TDataSetProvider
    Left = 281
    Top = 257
  end
  inherited CDS_Consulta_DbGrid: TClientDataSet
    Left = 353
    Top = 281
    object CDS_Consulta_DbGridIDF: TIntegerField
      FieldName = 'IDF'
      Required = True
    end
    object CDS_Consulta_DbGridDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 30
    end
    object CDS_Consulta_DbGridCOMISSAO: TFloatField
      FieldName = 'COMISSAO'
    end
  end
end
